home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Arsenal Files 6
/
The Arsenal Files 6 (Arsenal Computer).ISO
/
prg_basi
/
n_b-v200.zip
/
NBV2
/
DMO
/
B_FFRAME.DMO
< prev
next >
Wrap
Text File
|
1996-03-11
|
3KB
|
50 lines
$if 0
┌──────────────────────────╖ PowerBASIC v3.20
┌──┤ DASoft ╟──────────────────────┬──────────────────╖
│ ├──────────────────────────╢ Copyright 1995 │ DATE: 1995-10-01 ╟─╖
│ │ FILE NAME B_FFRAME.DMO ║ by ╘════════════════─ ║ ║
│ │ LIBRARY ║ Don Schullian, Jr. ║ ║
│ ╘══════════════════════════╝ ║ ║
│ A license is hereby granted to the holder to use this source code in ║ ║
│ any program, commercial or otherwise, without receiving the express ║ ║
│ permission of the copyright holder and without paying any royalties, ║ ║
│ as long as this code is not distributed in any compilable format. ║ ║
│ IE: source code files, PowerBASIC Unit files, and printed listings ║ ║
╘═╤═════════════════════════════════════════════════════════════════════╝ ║
│ .................................... ║
╘═══════════════════════════════════════════════════════════════════════╝
This is one of 2 really fancy frames. If all you want is a simple box then
calling this routine is quite simple but once you start adding in the cross
members you are in for a bit of a task and you should "experiment" outside
the main program until you get your numbers right. The trick is the number
four (4). The frame is 8 pixels wide and to get it to work on just cross
members you need to incorporate an extra 4 pixels on the column/row to get
it to draw all the way to the center of the intersecting frame member.
Admittedly a bit of work but well worth it!
You can make the cross members be at either the absolute Row or Col or you
can send values for Hcol! and Hrow! of > 0 and < 1 to have them placed at
the percentage of the distance. ( This is demonstrated in B_RFRAME.DMO )
$endif
'.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
'┌───────────────────────
$INCLUDE "DAS-NB01.INC" '│
$INCLUDE "DAS-NBV1.INC" '│
$INCLUDE "DAS-NBV2.INC" '│
'│
CLS '│ get the VGA screen
SCREEN 12 '│ set-up
GraphicSETUP '│
fLoadDAScolor '│ load 3D color system
'│
GBoxFFrame 0, 0, 639, 479, 4, 9, 14, 315, 235 '│ centered cross members
GBoxFFrame 0, 0, -323, 0, 4, 9, 14, 0, 120 '│ only a horz line
GBoxFFrame 0, 0, -1, 128, 4, 9, 14, 160, 0 '│ only a vert line
'│
WHILE NOT INSTAT : WEND '│ a clean exit
CLS : PALETTE : SCREEN 0 : END '│
'└───────────────────────